program Project1; // Zadanie 2.5

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  losuj_liczbe, zgadnij_liczbe : Integer;

begin
  Writeln('Program losuje liczbe od 0 do 9. Zgadnij ja.');
  randomize();
  losuj_liczbe := random(10);
  Readln(zgadnij_liczbe);

  if zgadnij_liczbe = losuj_liczbe then
    Writeln('Gratulacje! Zgadles liczbe!')
  else
    Writeln('Bardzo mi przykro, ale wylosowana liczba to ', losuj_liczbe, '.');

  Readln; // czeka na nacisniecie klawisza Enter
end.
